﻿! door_panel_C /modified by VL 3/1/94/
! internal macro: door_int_frame
! a=width, b=height, c=thickness, d=panel frame width,
! e=fill material
f=1"     ! internal frame width of fill

prism_ 10,c,
0,0,15,
0,b,15,
a,b,15,
a,0,15,
0,0,-1,
d,b/2,15,
a-d,b/2,15,
a-d,b-d,15,
d,b-d,15,
d,b/2,-1
addx d
addy b/2
addz c/4
call door_int_frame a-2*d, b/2-d, c/2, f
    material e                           ! ***fill
    add f, f, c/8
    block a-2*(d+f), b/2-(d+2*f), 0.004
end



